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LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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OTSSCVTGP_R Convert G Floating to Packed 16-SEP=1984 00:24:10 VAX/VMS Macro v04-00 Page 0 or 
able of Tontents 

(@ 4 HISTORY ; Detailed Current Edit History 

(3) DECLARATION 

(4) 1 OTSSCVTGP_R 


Convert G Floating to Packed = 16-SEP=1 384 99: $3: 18 AX/VMS Macro a 


ODOOOoOOOCOooo 


Soooooooo 
SoOSOSCSCSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOoOO 


SoOooooooooooooooo 
COOooooooooooooooooo 


ae neneee eee eeeeenenennnen 


Sooooooo 


-00 
6-SEP="9 2: LIBRTL.SRCJOTSCVTGP.MAR; 1 


ITLE OISSeyTGP. RO Convert G Chose ing 50 © Packed 
DENT /1-0 3 Fil les OTSCVTGP.MAR Edit: DG1005 


SRARAAAAA TAKARA TERA AERA AAAAAAAAAAAARAAAAAAAAAAEAAAAAREAAARARERAAAREAEAAAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS cyni eee UNDER A LICENSE AND MAY BE USED AND oye ig 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE pad ed NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR 1 er—rnainie OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL 


PARRA RALARARAALALAAASALELESE SEE ESE SESE EE SESE RE SES EEE REESE RE REESE ESRC CREE SESS 


: ,FACILITY: LANGUAGE INDEPENDENT SUPPORT 
“ABSTRACT: 


So 


This module contains the routine that converts g floating 
numbers to packed. 


VERSION: 1 
HISTORY: 
AUTHOR: 


Pamela Levesque, 18-Jan-1982 


MODIFIED BY: 


NAME WN OOOO NAME WIN OS ODNAU EWN SO OO NOAU ES WH OOONOU Sw 


ito salad nein aes velit wae niall 


BBE EEE FANNIN MWINWINIAINIPONIPINPININININIPN 2 SO SO OO 


SOOoOoOQooooooooooooooo 
SOoOooooooooooooooocoo 
SOOooooooooooooooooo 
SGOQOoooooooooooooceoo 


| 
NOG —eeGV<V—_ 


to Packe 
Current 


de ait utstory “SRERI8RE 99:78:39. 


aeSOrsevrer.man;1 P29 (3, 


-SBTTL HISTORY 


Edit History for Version 1 of OTSCVTGP 


; Detailed Current Edit History 


- Ori 
= Cal 
- Expec 


PLL 18-Jan-1982 

conversion routine. 
exponent from conversion routine. 
Determine how many digits there are in the exponent on the 


PLL 2-Mar-1982 
PLL a 


Make sure result will not overflow destination after calculating 
lLongword exponent. 
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TSSCVTGP_RO Convert G Floating to Packed 16-SEP-1984 00:24: AX/VMS Macro V04-00 
9885 DECLARATIONS ° bree obec 90:73:58 LIBRTL.SRCJOTSCVTGP.MAR; 1 
6¢ ~SBTTL DECLARATIONS 
g¢ : INCLUDE FILES: 
6 SOSCDEF 
6 
% ; EXTERNAL SYMBOLS: 
0 71 -DSABL GBL :; Prevent undeclared symbols from 
0 ie ; being automatically global 
$0 74 -EXTRN OTSSCNVOUT_G ; E-format conversion 
000 75 -EXTRN LIBSSTOP 3 error halt 
4 f -EXTRN OTSS_FATINTERR ; Fatal internal error code 
$00 78 ; 
0000 79 
0000 80 ; 
0000 81 ; MACROS: 
0000 8 3 NONE 
0000 : ; 
0000 4 
0000 85 ;: 
0900 86 ; PSECT DECLARATIONS: 
00000000 87 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
0000 88 USR, CON, REL, LCL, RD 
0000 89 
0000 90 ; 
0000 91 ; EQUATED SYMBOLS: 
0000 92 s NONE 
0000 93 ; 
0000 94 
0000 95 ; 
0000 96 ; OWN STORAGE: 
0000 4 3 NONE 


ss 


a ee ee me ee me ee ee ce ee ee ee ee a ee ed ed ed od od 


GUAT S BS  E BE BAW WII IIR norononononononond 2 2 2 2 3 OOO OOOO OO 


FUNCTION VALUE: 
; 1 = SUCCESS, 0 = FAILURE 
; SIDE EFFECTS: 
Destroys registers RO through R9. 


OOoOoOoOooooooo 
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TSSCVTGP_RO Convert G Floating to Packed 16-SEP-1984 00:24: AX/VMS Macro V04-00 P 4 
#2385 OrsstvickRoe grSEpaloge si:isi59 Letanne.caciorecurce.mar:1 P29 cf, 
.SBTTL OTSSCVTGP_RO 
344 
3; FUNCTIONAL DESCRIPTION: 
; Converts a g floating number to packed. 
0 ; CALLING SEQUENCE: 
09 ; JSB OTSSCVTGP_RO (scale.rl.v. src.rg.r, dstlen.rl.v, dst.wp.r) 
4 ; Arguments are passed in R6, R7, RB and RI. 
9000 : INPUT PARAMETERS: 
000 ; SCALE.rl.v The power of ten by which the internal 
000 ; he PA a poe Ba of the source must be 
4 3 multiplied to scale the same as the 
00 3 internal representation of the dest. 
0000 r SRC.rg.r The number to be converted 
$333 1 
900 : IMPLICIT INPUTS: 
8000 ; ALL of the trap bits in the PSL are assumed off. 
9009 : OUTPUT PARAMETERS: 
44 : DST.wp.r The place to store the converted number 
00 : IMPLICIT OUTPUTS: 
$0 ; NONE 


OTSSCVTGP_R9I:: 
SOBL #48,SP ; Allocate temp space 
MOVCS #0,(SP),#*A'',#48,(SP) : Clear temp space 
MOVG  (R?), (SP) : Get input number 


3; Make a descriptor for the temporary string. 


6—€ 30 00 


PUSHAB 8(SP) 3; Address = space reserved 
MOVB #OSCS$K_CLASS_S,-(SP) ; Class = static 

MOVB A! yb DTYPE_T,-(SP) 3; Data type = ASCII string 
MOV #38,-(5P) : 


; Length in bytes 


AUIS WN OS OD NAUS WIN SO OD NAU EWN OO ONAU EAR $$ O OO NAME WO OD NOAUES WO 


| 
e 
DSTLEN.rl.v The number of digits in the destination 


OTSSCVTGP_R9 


1F 

04 AE 

10 A 

00000000 ' GF 9 
5B 50 


14 AE 24 D 
40 
08 AE 51 


05. 00 
0 


6—€ OC AE 08 BE OC AE 
50 6€ OC AE 


54 58 = 56 
54 50 

1F 

56 E—1 A640 


12 “c 10 AE 
12 AE IF 

69 58 00 6€ 
« 


st 38 


-ooO 
ew 


oO 


m 
PEON NUNIUIUIVIVIV 


POSS AA > Os Or — — Me 090000000000 0008 


oo oo "OS 
Ssk Ssso woo 
SOOO OOOOCoOoOSoOo 


Oooo NNN 
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PUSHL #31 
(SP) 


vw 
Cc 
4d 
= 
> 
@ 
= 


; Determine the number of digits in the 


LOCC #*A'+* ,#36,20(SP) 
BNEQ 

LOCC #*A'=" ,#36,20(SP) 
BEQL 20$ 


5$: MOVL R1,8(SP) 


LOCC #*A'' ,#5,aB°8 (SP) 
SUBL3 8(SP),R1,12(SP) 


DECL 12(SP) 


Hh hp +4 
CALLS # t* tetecnaente 
RO, 208 


; location of en 
; adjust for sign byte 
; at this point, 12(SP) = Length of exponent 


19 AX/VMS Macro v04-00 Page 5 
H LIBRTL.SRCJOTSCVTGP.MAR; 1 (4) 


Digits in fraction 
Output string descriptor 
Number to convert 

Call conversion routine 
Should never fail 


exponent. 


; look for sign byte (-) 
branch to error if we didn't find it 


; save location of sign byte 
; (contained in R1 after above LOCC) 


; look for NUL (end of string) 


determine number of digits by subtracting 
Location of gm of exponent from 
of exponent, and save it 


: Convert the exponent and correct for scale factor. 
CVTSP 12(SP),@B*8(SP),12(SP), (SP) 3; Make packed exponent 


CVTPL 12(SP),(SP),RO 


; Make longword exponert 


: Here must check that the result will not overflow 
3; the destination. The destination Length (total number of 
; digits) minus the scale factor hag ve the number of digits 


; to the left of the decimal point. 
the longword exponent, then the 


SUBL3 -R6, RB R4 
CMPL RO,R4 

BGTR 15$ 

MOVAB -31(R6)CROJ,R6 
: Convert the fraction to packed. 


(SP) ,18(SP) 


MOVB 1g 
CVISP #31,18(SP) ,#31, (SP) 
ASHP = RO, #31, (SPS ,#O.RB, (ROD 


BVS 10$ 
INCL RY 
10$: ADDL2 #56,SP 
RSB 
15$: LRL 


C RO 
ADDL2 #56,SP 
RSB 


that number is greater than 
result WILL overflow the dest. 


Determine num of digits on left 
Compare with longword exponent 
Branch if overflowed 


Move sign over "’. 
Make packed fraction 
Scale to destination 
also clears RO) 
Branch if overflowed 
Indicate success, R 
Delete stack temps 


“ 
= 


" 
oO 


Indicate failure, RO 
Delete stack temps 


Correct for fraction size and scale 


BT ee ev F ce Ronee ne tO Packed 


CALLS 


14 

ai 
17 208: PUSH 
if 2 USHL 
19 
20 ~END 


"SSEp15bs 99:45:58 


#OTS$_FATINTERR 
#1,G*CIBSSTOP 


AX/VMS 


LIBRTL. 


she 


ro 
JOT 


sty 


TCP .MAR: 1 


; OTS fatal error message 
; Signal and don't return 


roe 
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grescyter_ FP Convert G Floating to Packed as 1 38s 99 48 +19 
DscBK pIVPE-T = 90000008 
LI eeeeeere 
Mi tar erertere 
OTSSCVT 00000000 RG 


eererenree 


GP _R 
OTSs CPATIRTERR 


ers ood 


! ; Psect synopsis ! 


eeeeeceoes nooaqust 


PSECT name Allocation PSECT No. Attributes 
» 6 « 0000000 -)» 0O¢ Q.) NOPIC USR CON ABS LCL N 
SABS 0000 $9 -) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR 
-OTSSCODE 000009 147.) S €.. wen PIC USR CON’ REL LCL 
poeomeae Dene renames aooe $ 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:0).03 00:00:01.03 
processing 113 00:00:60.29 00:00:01 .64 
132 00:00:J1.22 90:00:07-15 
Synbol table sort 2 ef 0.11 00: 8700-37 
5 00: Q: 0.38 00:00:03.04 
Ft table output § 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output 0 Bo 88:88" Be BF BO - 38 
Assembler run totals 335 00:00:02.0 00:00:13.27 
The working set Limit was 1050 pages. 


9074 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 135 non-local and 4 
20 source Lines were read in Pass 1, producing 10 object records in Pass 2 
pages of virtual memory were used to define 7 macros. 


local symbols. 


Sere eee see ees soe eee eee seen + 


Macro library name 


"$255$DUA28: CSYSLIBISTARLET. MLB;2 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRE SS ION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTGP/OBJ=OBJ$:OTSCVTGP MSRCS$: 


AX/VMS 
LIBRTL 


Macro Vv04-00 
SRCJOTSCVTGP.MAR; 1 


=o 
L& 


= phe NOEXE NORD NOWRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


OTSCVTGP/UPDATE=(ENHS:OTSCVTGP) 


| N91 | AH-BT13A-SE 7 T CORPORATION 
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